Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC35.INC

Text File | 1985-06-15 | 256 b | 11 lines

{ Get interrupt vector address                                         }

PROCEDURE Func35 (V : INTEGER);
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=($3500 OR (V AND $00FF));
    MSDOS (Registers);
   END;
 END;